home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
mail
/
netmail_13.lha
/
NetMail
/
Drivers
/
Base64.encoder
< prev
next >
Wrap
Text File
|
1995-09-30
|
1KB
|
46 lines
/*
** $VER: Base64.encoder 1.3 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
IF UPPER(ARG(1)) = 'INFO' THEN RETURN 'Base64'
cmd = 'AmiTCP:bin/base64'
IF ~EXISTS(cmd) THEN DO
cmd = GetVar('NetMail/Base64Cmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/Base64Cmd `Which "Base64"`'
cmd = GetVar('NetMail/Base64Cmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/Base64Cmd `RequestFile Title "Select Base64 command" Noicons`'
cmd = GetVar('NetMail/Base64Cmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
IF UPPER(ARG(1)) = 'ENCODE' THEN RETURN 2
ELSE RETURN ''
END
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/Base64Cmd ENVARC:NetMail/Base64Cmd'
END
END
END
SELECT
WHEN UPPER(ARG(1)) = 'ENCODE' THEN DO
PARSE ARG , from, dest, format
IF UPPER(format) = 'BASE64' THEN ADDRESS COMMAND '"'cmd'" ENCODE FROM "'from'" TO "'dest'" CRLF'
RETURN RC
END
WHEN UPPER(ARG(1)) = 'DECODE' THEN DO
PARSE ARG , from, dest, format
IF UPPER(format) = 'BASE64' THEN ADDRESS COMMAND '"'cmd'" DECODE FROM "'from'" TO "'dest'"'
RETURN RC
END
OTHERWISE
END
RETURN ''